ຈຈ 
تت‎ 
` 
+ a እን 


ITR 

: ເ Z 
Ai 

| L 


NOTE DE L’EDITEUR 


DANS CE NOUVEAU NUMÉRO, ON TROUVERA PLEIN DE CHOSES DIVERSES : 


ө MICHEL BRET, UN DES COLORIXIENS Du GAIV PRÉSENTE UN PROGRAMME 
GRAPHIQUE, 


e Jérôme CHAILLOUX, avec MAD 8 PROUVE AUX MINICOMPUTEREUX ADEP- 


TES DU 8008 QU'ON PEUT SE DÉSASSEMBLER SANS SOMBRER DANS L'ÉGARE- 
MENT, 


e JEAN-MicHeL FAVRE, ÉTUDIANT AU DÉPARTEMENT D'INFORMATIQUE, ል 
CONÇU UN PETIT INTERPRÈTE MUSICAL PÉDAGOGIQUE, 


° QUANT A JEAN-FRANCOIS DEGREMONT, NON CONTENT DE SUPERVISER CE 
NUMÉRO, IL NOUS FAIT PART DE LA NAISSANCE DE SON DERNIER REJETON, 
AUQUEL LES BONNES FÉES ONT DÉJÀ PRÉDIT UNE CARRIÈRE ARTISTIQUE SANS 
PRECEDENT. | 


e ENFIN POUR LES AMATEURS D’UNHEIMLICH : IMPOSSIBLE CRISTAL, DE 
JEAN-ERIC SCHOETTL, ռ 


° UNE PAGE D'ERRATA ÉGALEMENT, CORRESPONDANT À L'ARTICLE DE 
Marc BATTIER DANS LE N°27, | 


° LA COUVERTURE EST DE DANIEL GOOSSENS, . UN DES PLUS SAUVAGES 
LISPIENS DU DÉPARTEMENT, ZELATEUR DE L'INTELLIGENCE ET DE L’ARTIFI- 
CE, ET PAR AILLEURS COLLABORATEUR D'UNE REVUE . SCIENTIFIQUE BIEN 
CONNUE : FLUIDE GLACIAL, 


° QUANT AU GROUPE ART ET INFORMATIQUE DE VINCENNES, IL EST PLUS 
PROSPÈRE QUE JAMAIS : EXPOSITIONS À MARSEILLE (JUIN-JUILLET 77), À 
GLASGOW (SEPT-OCT 77), CONFÉRENCES À San DIEGO (oct 77), au CNRS 
(nov 77), Shows À PARIS (CENTRE CULTUREL SUISSE, JANVIER 78), À 
SOCHAUX (FÉVRIER 78), À GRENOBLE (MARS 78), 

LES PROJETS, EUX, SONT INNOMBRABLES : TOUT VA BIEN, 


J.A, 
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ESSAI D'ANIMATION 


MicHeL BRET 


AVANT : Peintures, Mathématiques, Informatique 
PENDANT : Art 4 Info (COLORIX, table tracante) 


BIENTOT : "Le pinceau pensa et са moulina" 


ARTINFO/MUSINFO 8 
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I - LE PROGRAMME ANY 


A) PRINCIPE 


On se donne une "forme" Fl, une "forme" F2 et une "trajectoire" 
TR ነ le programme prend une série de formes {Fi} telles que : 


A la première soit Fi 
A la dernière soit F2 
A leur ensemble est disposé "comme" TR 


repère absolu 

repères locaux de la trajectoire TR 

: changement de repère 

transformation linéaire F1 + Fi + F2 


پمو 
CFE Get‏ 
eS‏ + — 
wm‏ 
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B) UNE PROCÉDURE QUI DESSINE : 


Plutôt que de stocker beaucoup de choses, j'ai cherché une 
procédure reconstruisant une "forme":;:(dans-cet:essai : une 
ligne plane) à partir d'un petit nombre d'éléments - (ici 
quelques points remarquables et des paramètres précisant 
des caractéristiques locales de la ligne : tendue-creusée, 
simple-bouclée, etc.). 0. 


Pour cela une premiére procédure BIT détermine la forme de 
гота digne: au voisinage de chaque point: ‘donne’ ‘en fonction des 
፡፡፡ positions relatives’ des points: les * plus proches et des 
paramètres donnés. Puis une seconde: procédure. (récursive) 
joint ces points en tenant compte des calculs précédents. 
(Voir listing EIERE, Շ1- après). 


AT egalh 


Ը) APPLICATIONS 


* Avec une table de saisie et un jeu d'entraînement pour 
le choix des paramétres on peut faire du figuratif,de 
l'écriture cursive, etc. 


* En 3 dimensions (LSE 3D) on peut définir des Tignes de 


l'espace et, par animation d'une ligne à l'autre, en- 
gendrer des surfaces 


* Quand quelquechose dépend de paramètres (c'est pas si 
rare que ça ...) on peut faire "bouger" de quelque 
chose en considérant une telle ligne dans l'espace - 
des paramétres. 


Ainsi on peut définir 
des transformations de 
couleurs dans l'espace 
(R,V,B). 


L'intérêt est de 
permettre de définir 
rapidement et d'une 
façon intuitive une 
sorte de trajectoire 
de ce que l'on veut 
faire évoluer. 


- 2 < 
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ቋና PROGRAMME ۸ 


150 PROCEDURE &BITCT,NL) LOCAL LL 

151 UA=TUNL, 1)-TUNL-1, 111 VA” TONL, 21- TUNL- 1, 237 DL“ RACCUA*UA+ VAR VA) 

152 SI Dap ALORS ۵۳۸) 6٢ 1)3 T(NL, 321۰-1067 OLS ፐር ከፌን 4ን”ሙ VA/ DLS UA” ፐር ፎን 11-ՂԼ 1, ໄງ 
153 ՄԲՀ TC 2, 2)-TC 1,213 DLe RACCUR#UA+VAXVA)D3 SI LL*O ALORS ሬጄጾርቆ4›-1) 

154 TL JJ-UA/LL3 Tl ls 41 VA/DLIFAIFE 157 F@UF 1-2 JUSPUA NL-1 

155 ሀክ፦ፐር ԷՀ 1, 111-101, LIS VE-TC1+1,21-TC1, 23 ያ (Բ-ՆԲՀԱԷ: VA-VA+ VB 

156 DL”-RACCUA*LA+ VA4VA)ISI TL=C ALEPS ¿ERC 4, - 17 

157 TCI, 31-6ՆՃ/ DLS ፐር 1 ን 41-ՄԲ/ DL; UA- UES VAVE 

158 7 


u መ መው መ -- “+ с መሠራ- 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 


183 PROCEDURE &BP(X1,Y1,U1,V1,X2,Y2,U2, ໄຂ. Ne ນໄ) LOCAL Y2,X2,Y 1,X1 
184 LeRACCCX2-X 1)#CX2-X 1) +CY2-Y 1) (Y 2=Y 1) 0 ALK 

185 XIX 1+ጊ#:17ኛ 39ኛ 1+ጊ.# ሂ17 ፳ 4-X2-LRU23Y 4-۷ 2-٨ V2 

186 X5-(X34X4)/23 Y Se (Y 3+Y 4) /87 TABLEAU ፐ8 3. 217786 دا‎ 1 

187 TBC 1, 21-ໄ 17 TBE 8, 11-3 TBC 2, 21-۷3 ፐ8 3 1) -X 55 TBC 32 5 

188 ¿BP2CTB-N)3 TBE 1, 11-X53 TBE 1. ۵2-۷ 57 TBC 2. 11-X 43 1812, 21-74 

189 ፐር 2, 11X2; 1803, 21-72) ¿BP2( TE, N) 3 RETOUR 

190 PROCEDURE 4BP2(TB,N) LOCAL No TB, TP, Es F3 TABLEAU 22 

191 SI N#O ALORS ALLER EN 1932 456 Թէ 1, 11, TBC 1, 83, TBE 2 11. TBE 2, 23) 
192 &SCTBL2, 13, TB 2, 21, TBE 3 13. TBE 3. 21 ንያ RETOUR 

193 TPC 1, 13e CTBC 1, 134181 2, 129/25 TPL 1, 21<ເ18( 1, 21+18ເ 2. 23) /2 

194 pt 8, 11-(TBE 8, 119 TBC) 13 ) /23 TPC 2-۴4 

195 TPES. 11-ເ1ສເ 1, 13+ፕጅር 2, 12) /2ያ TPL 3, 23e ‹ፐኞር 1. 23 +፲ኾር 2, 21) /2 

196 PATHE 3, 123 Fe TBE 3+ 937 TBE ຂມ 11 -196 1› 195 TBC 8 ຂາ -1#( 1, 2) 

197 TBE 3, 13፦ፕዞ 3, 133 TBE de 21 -1ຖເ 3, 211 48624 18, N- 1) 


198 TBU1/1)=TP[3, 137 TBC 1, 2) “ፐኞር 3, 217 TBC 2, 11-TP(2, 11 


(59 ፕፐ፳(2ን 23”ፕፐዞር ን 2); TBC 3, 11-E3 TBC م3‎ 7 ን ከ ር ችም ኔው ID N" LE RETOUR 


«աաա rd ev rey ኤው ie | መመ፡ - መጻመጻመሙ መመ“  ሬመመሙመ v መው — ----. -<- — — — —‏ ایسب ووو 


200 PROCEDURE &S(X1,Y1,X2,Y2) LOCAL Y2»X25Y15X13 SI CL=0 ALORS RETOUR 


201 AFFICHERT UJ éSEG(X Lo Y 1.0) AFFICHERCU] 45860042, Y 2. 1)5 RETOUR 
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*í COMMENTAIRES ٨ 


150 à 158 : La procédure BIT détermine les "tangentes" 
tableau Т 
^^, 
7 ` 
ມ” Հա 
M. ՛ (Ս, »V;) Ki 
ເພນ > 
” 
” 
Ba 
dÉ ի 
141 
183 а 189 : La procédure BP déterminé, pour chaque couple 
| de points flanquës de leurs tangentes,2 qrou- 
pes de 3 points (permet de traiter les infle- 
xions) et appelle la procédure BP2 pour chacun 
de ces triplets. 
M3 
„© 
> ` 
- м 
. Y ` 
աա 2“ I (Up V9) 
١ س.‎ en 
M1 AR E MA M2 
. ` Pid 
` ՛ 
wM4 
190 a 199 : La procédure BP2 rëcursive (travaille sur des 
triplets de points M1,M2,M3 ; N estlaprofon- 
deur de la rëcurrence) M2 
Si N=“ : affichage des : A 
segments [M1M2Jet [M2M3] . . ໄໂ 
Sinon : dëtermination ,՛ ե 
des points M12,Mp3 et “ر‎ M1223 N 
M1223 puis appels de իշ ቹ----ፀ---- & M23 
BP2 récursivement / Ke 
pour : pa \ 
(M1,M12,M12235 de 1) 7 ላ 
OASE e A پل‎ ss a ጩጨ ຈ M3 
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Exemple : effet de BP(X1,Y1,U1,V1,X2,Y2,U2,V2,2,0.5) 


11) Le projet du peintre évolue au fur et á mesure de sa réali- 

sation, pour aller vite : le modèle c'est l'oeuvre. Je rêve 
d'un "pinceau intelligent", prévenant mes intentions et en don- 
nant son interprétation personnelle, laquelle, modifiée par mes 
soins, induirait son comportement futur. i 


Le programme d'Intelligence Artificielle qui ferait ça serait 
donc capable de reconnaître les formes que j'ébauche en se basant 
sur les résultats du dialogue (apprentissage) que constitue la 
‘série des [interprétations (par le programme) — modifications 
(par l'utilisateur)]. | ENS 
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MAD 8 


ሀዘ DESASSEMBLEUR POUR 8008 ` 


JÉRÔME CHAILLOUX 


ARTINFO/MUSINFO 8 
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MANS um desassembleur rour 8008 


ЖЖЖЖЖЖЖЖЖЖЖ 
MAILS 
ЖЖЖЖЖЖЖЖХЖЖ 


Jerome CHAILLOUX 
Fevrier 1977 


MAUS est un desassembleur de rubans rerfores hexadecimal 
issus du micro-rrocesseur 8008. Il rermet d’obtenir des 
listeses "en clair" de vos programmes a partir d'un ruban 
rerfore, MATS fonctionne sur le 711609. 


1,0 Les rubans hexadecimaux. 


Les rubans hexedecimaux  images-memoire sort Produits au 
towen des commandes Wr E et N du moniteur 8008. Ces rubans 
пе contiennent que des caracteres imerimables et reuvent 


done etre relus sur ume TTY mon connectee (TTY en mode 
local), 


lel ԼՅ commande N (rull command) 


oe 


syntaxe +N 


rerfore une avance bande de 60 caracteres mulls (code 00). 


1.2 la commande W (write command) 


suntare Հ Ս adresse de debut » adresse de fin 


rerfore (dans le format decrit ci-dessous) l'image le la 
zone memoire commencant et se terminant aux adresses sreci- 
fiees cans la commande. On peut emettre rlusieurs commandes 
Ս ፳ la suite Four obtenirs sur le meme ruban rhusiaues les 
images de zones memoires non-contistes. 
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MAIS un desassembleur rour 8008 PAGE 2? 


1,3 la commande Է Cend-of-file commande > 


gaumbtaxe + ¿E adresse de lancement 


perfore un bloc "fin de ruban" (voir sor format ci-dessous) 
aui contient ‘adresse de lancement du erogramme. Cette 
commande rerfore en outre une avance bande e 


1,4 enchainement des commandes de rerforation. 


«N }--rerforation d'une lere avance bande, 
«Whhhhrnhhh 
+++ 
+++ -- perforation des differentes zones memoires 
++. 
‚Whhhhrhhhh 
Es }..rerforation de l'adresse de lancement 


et d'une fin de bande. 


1,5 formel des rubans hexadecimaux 


Tis sont formes d’enregistrements Գա possedent tous la meme 
structure, Chaaue octet est rerresente Far deux disits hex- 
adecimaux (hh), 


* ከከ ከከከከ 00 ከከ ,, +, ከከ ከከ 
١ 

١ 1 ' | ' octet de cheksumr calcule de telle 
١ 1 ' maniere aue la somme de tous les 
1 ' ! $ ՛ š 
ա ' i , octets de L’erresistrement (y 
Ж. : ' ۰ comeris le nombre ۵8 540۰ 
' | ' ' \ l'adresse de l’octet de cheksum 
' H, ' i | lui meme) soit esale a 0. 
! ' | ' 
' ! ' | ո octets de donnees a charger en memoire a 
' | ' ١ rartir de l'adresse srecifiee. Le nombre ո 
' 1 ' b est le ler octet de l'enregistrement. 
| ի ' 

' . ; 1 
! ነ ն ture de 1'enresistrement (toujours 00), 
' 

' 

Ա 
| , adresse memoire (sur 2 octets) ou il faut charger 
‚+ des donmees. 

' 
' ի 
y hombre d'octets de donnees a charger en memoire: 
| 


caractere "1" destine a marauer le debut de 
l'enregistrement. 
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MANS un desassemhleur rour 8 FAGE 3 


ԼՅ fin losiaue du ruban est detectee Far սո enresistrement 
dont le nombre de donnees 8 charder est esal a sera. 
չ ዕዕ ከከከከ 00 ከከ 

ې بې —— مد `т*‏ 

Ա Ա ` 

ի ` H H ` 

" ነ ፡ + octet de chek sum 

፥ 5 

' ነ : toujours 00. 

' D ի 

adresse de lancement du Frosramme.‏ ! ء 

է) é 8 

" haraue de fin de-ruban Llosiaue. 

4 


margue de debut d'enregistrement, 


2,0 Princire du desassembleur. 


Les rubans hexadecimaux sont tres utiles rour garder des 
rrogremmes sous un format tres reduits en revancher ils sont 
рем commodes Four documenters modifier ou meme comrrendre 
ces memes Frosrammes. MAS va editer chaoue octet code du 
гырап rerfore sous les differents formats + 

- mnemoniaue instruction CINTELGREU) - 

- valeur hexadecimale | 

~ caractere ASCII, 


Les instructions du 8008 etant de lorgeur variables les re~ 
sulats ainsi obtenus sant tres mediocres sour le listase des 
instructions. Far exemple le desassemblese des 3 octets 
corresrondant ສ l'instruction JME 1000 rroduit l’edition de 


+ 
+ 


AMF 44 ն 
HLT OO 了 
INC 10 ໃ 


MAUS va s’efforcer de distinguer dans l’image memoire les 
zones contenant des instructions, des zones contenant des 
donnees, Four ce fairey MALS va simuler l’execution du ero- 
gramme a partir de son adresse de lancement» et marauer les 


octets oui sont consideres comme des instructions. Cette 
simulation consiste a interrereter les instructions oui Pro” 
vogue des rurtures de sequence 1.6. les instructions de 


tyre ԿԼ ມຕ, CALs КЕТ et RST; conditionnelles ou incondi- 
tionnelles. ርፎ marausde ne Freut s'effectuer au’arres avoir 
charse en entier le Frrosramme a desassemblere 


Une fois le marauese effectues MAIS edite l’image memoire 
sous les formats instructions ou donnees: 


Ce principe a toutefois des limitations. Les branchements 
indirects et/ou indexes me Peuvent ras etre interrretes, 
Les donnees ne doivent ras etre melanstees au programme, En 


particulier les arrels de sous-rrosrammes dont les arguments 
sont Places Juste en dessous de l'arrel effectif risque de 
placer MADB dans սո etat de confusion derlorable,s 
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MALS un desassembleur rour 8008 


3,0 wtilisation du desassembleur. 


MALS est ur utilitaire standard du 11600 oui utilise 


differentes FUs + 


BI entree du ruban hexa 


1 ፖፖ | | 


` listase du desassemblase 
AE) AO | 
յ 7777 7774. 


FC commandes de 8 


3,1 activation de 8 


KCALL MAD arrel du rrosramme MAIS. Si 87/7 imprime ` 


message d'erreur ERE O6» le #=rosramme r 
sur le disaues il me vous reste Plus. o 
sassembler votre rrosramme 8 a 8٥ main 
mettre MANS sur le disque. 


ЖЕТ TR affectation du lecteur de ruban 
ЖЕС TK affectation du Clavier TTY Four entrer les 


mandes de MAT, 


*LO LF affectation de L’imerimante 7 le 
final. 


3.2 commandes 8 


xIMAT initislise MANS et lit le ler ruban sur 
g El. Cette. commande est obligatoire et ne doit 


etre emise aufure seule fois sous reine de 


dre l’image memoire oul avait ete cree. 
ران‎ 
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MAIS un desassembleur rour 8008 FAGE 5 


MARS ne reut simuler аме les 8 lers k du 8008, 
Si vous voulez desassembler des programmes en 
КЕРКОМ (1,6 des Frogrammes dont 1’adresse est 
plus grande que 2000 hexa), vous rouvez srecif- 
ier dans la commande la lere adresse a simuler, 

XIMAlrhhhh Cette deuxieme forme n'est dons ras e utiliser 
pour des rogrammes en RAM, 


XCMAII rermet de Lire d'autres rubans sans reiniti- 
aliser le systemes si votre votre rrogramme se 
trouve sur plusieurs. rubans rerfores, Cette 


commande peut etre emise rlusieurs fois. 


ЖММАП maraue 118596 memoire, በስ surrose аме la Frem- 
iere adresse du Programme (som adresse de lence- 
ment) a ete lue sur le bloc fin de rubar du der- 
nier rubar Lts | 

KMMAlirhhhh maraue 1՛ 18396 memoire a Partir de l'adresse 
geecafiee dans la commande, Cette commande reut 
etre emise plusieurs fois en rarticulier Four 
srecifier les differentes adresses se trouvant 
dans une table de branchements indirects 
indexes. 


SL Mot edite sur 1 unite LO le resultat du desassem- 
հ 189. Cette commande reut ԹԵՐԹ emise plusieurs 
fois Four obtenir rlusieurs cories du desassem- 

blades 00000000 | | 


SEO. fin d “execution de MALTS, 


3:3 utilisation du disaue 


Le lecteur de ruban de la TTY est tres lent. Il est rarfois 
avantadeux de creer unm fichier sur diseue contenant l’image 
du гырап hexadecimal 8 desassembler ce oul evite de re~ 
charger le ruban apres chaaue erreurs 

Four corier le ruban rerfore sur disques il faut utiliser 
l'utilitaire standard du T1690 3 le FUFS, 


XCALL ٧۱٣۵6 arrel de l'utilitaire ԷՍԻծ. 


XINFUT+TR>+ETAF definition du suerort d’entree 
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MAIS un desassembleur rour 8 | FAGE ծ 


XOUTFUT snom- definition du fichier de sortie. L'extension 


ም 
т 
$I est reservee pour les fichiers hexa de 
1’ Intel. 


XTRANSF effectue le transfert 


SEO. fin du travail 


4.0 Exemples d'utilisation de 868 


.. 


desassemblase direct d'un ruban Ferfore 


XCALL 8 arrel de MAIS, 

չու TR selection du lecteur en entree, 
ЖО LF selection de l’imrrimantes 
xIMALI initislisation et lecture 

- lecture du ruban -+-- | 
ЖММАП таганане des instructions. 
«Լիճն f listase de l’image memoires 

>>> impression du resultat “፦፦ : I 

SEO. voila le travail 


Exemple du desassemblase complet du moniteur 8008. 
SEO. 


XCALL 7۵6 creation d'un fichier disaue 
XINFUT>TRy+ETARO contenant le ruban hexa du moniteurs 
ሕዐሀፐዞሀፐ ፥ቨ|ዐክ፻፲ፐ - ፥ ፲ #2 
ЖТКАМ5Е 

eo Lecture du ruban 一 一 一 
xEOJ 


XCALL 8 

KEI MONIT-*1y 02 

KFC TR 

XLO LF 

KIMAU, 2000 

xMMAD 

AMMAD » 3BAS mareuasde de tous les modules 
AMMAL ” 778 du moniteurs 
ЖММАП, 3967 

XMMAIDy 3969 

xXMMAIL » 39114 

Sëll: SAQO 

XMMALI » 3413 

AMMAL ZALA 

AMMAL ! 3043 
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MANS un dessssembleur rour 8008 PAGE 7 


XMMALI » 5 
XMMAII» SASF 
AMMAL SABE 
XAMMAL» 1 
ЖММАП » SAF 4 
XMMADYy 3068 
XMMAD « 7 
ቾቨዘልእር ነ 56 
SL Héi 

-== impression du desassemblase e=- 
xEOJ 


5.0 Exemrle de listade Produit ear MALO, 


a= ss | 0079 | CPM 
| 0074 | JFZ 007ዩ 
: 10070 | LAB 
يیو‎ | 0076 | RET 
007F | DCL 
0060 | JMP 0703 0080 | oca 
0043 | LLI 32 2 0081 | JFS 0079 
0045 | LHI 00 0084 | ງາຍ 3ເ43 
0047 | LCI 01 0087 | LLI 33 3 
0049 | JMP 0 0089 | LHI ዐዐ 
004C | ເເ] 30 O | 0088 | LME 
004E | LHI 00 | |008ເ | RET 
0950 | LAM 0080 | CPI «6 F 
0051 | INL 0088 |RTZ 
0952 | LBM | 0090 | CPI 54 ໄ 
0053 | LHA | 0092 | JF2 3043 
0054 | LLB I 0095 |LAI 20 
0055 | RET 0097 | LLI 33 3 
0956 | CAL 004C 0099 | LHI 00 
0059 | LME | 0098 | aon 
095۸ | CAL 3DEB 009C | LMA 
005D | LAH `` 009D | RET 
095E | LBL 009E | CAL 67 
005F | LLI 30 O 0041 | LLIE 33 3 
‚0961 | LHI 00 0043 | LHI 00 
0963 | LMA 0045 | LEM 
0964 | INL 0046 | RET 
0065 | LMB 0047 | CPI «3 ເ 
0066 | RET 0049 | RTZ 
0067 IN 61 A| | ODAA | CPI SA Z 
0068 СЕС 42 B| | 00۸) | LBI 08 
0069 IN 43 ር | | 0086 | JTZ 00BF 
096ձ JMP 44 0 | | 0081 | Լ81 10 
0968 IN 45 El | 0083 | CPI 53 5 
06) JFZ 48 H| | 0085 | JTZ 7۶ 
0060 == GC Է| | 0088 |1в 18 
006E | - IN 40 ዘ | | 0084 | CPI so թ 
006F IN 49 1||00BC | JFZ 3ເ43 
0070 | CAL 3F44 | 008۶ | LAB 
0073 | LBI 08 00C0 | JMP 0097 
0975 | LLI 6F | 00C3 | CPI 08 
0077 | LHI 00 ~. *፥፦!1]ዐ0ር5 | JTZ 055€ 
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ADE 
А01 
ЧАР 


CAL 


— 


w 


سا —— 


c'est probéblement 
des données 


' ; 
c'est probablement 
du programme 


c'est sûrement 
l'odresse d'implantation 
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PAGE 8 


DEFINITION ET IMPLEMENTATION D'UN LANGAGE PEDAGOGIQUE 
ADAPTE A LA PROGRAMMATION MUSICALE 


JEAN-MICHEL FAVRE 


ARTINFO/MUSINFO #28 
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Le matériel utilisé est l'Intel 8008 du Département d'Informa- 
tique (microprocesseur à mots de 8 bits) avec en périphérie un 
DAC à 8 sorties et un synthétiseur qui confèrent à l'ensemble 
sa vocation musicale. 


Le synthétiseur vu par l'utilisateur de l'interprète se réduit 
aux 3 seuls éléments qui peuvent actuellement être commandés 
par programme | 


e l'oscillateur 2 (VCO2) 
ወ l'amplificateur de sortie 1 (VCA1) 
e le filtre. 


Seules 3 sorties sur 8 du DAC sont utilisées, celles qui per- 
mettent de contrôler les éléments précédemment cités du synthé- 
tiseur 


ወ sortie 1 : contrôle du VCA1 
® sortie 10 : contrôle du 2 
e sortie 20 : contrôle du filtre. 


L'interprète étant chargé en mémoire, 11 doit être lancé par 
la commande :G164E > . L'interprète répond par HEHE D et est 


alors prêt à recevoir des commandes à partir du clavier de la 
TTY. 


Un programme syntaxiquement correct est composé de 5 instruc- 
tions élémentaires dans n'importe quel ordre, mais obligatoi- 
rement suivies de l'instruction FIN. Soit ፲1,,13 ,13 ,14 ,15 , les 
instructions élémentaires et 15 l'instruction FIN. 


I, : Instruction permettant de générer un son 


11 = {1,2,3,4} (100,8፻,...,51፲) (8,5) 101,...,99:) {1,...,9,:} 
1 ረ 3 4 5 


Cette instruction est composée de ይ champs. 


Le premier champ permet de sélectionner une octave parmi qua- 
tre, le deuxième une fréquence particulière dans cette octave. 
La note ainsi choisie peut étre altérée ou non gráce au troi- 
siéme champ. Si un dieze est frappé au clavier la fréquence 
précédemment choisie est augmentée d'un Ston, 51 c'est un blanc 
elle reste inchangée. Le quatrième champ permet d'affecter une 
longueur à la note. L'unité de longueur étant environ de 250 
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(ُوؤو. 


millisecondes. L'utilisateur peut donc choisir explicitement 
entre 99 longueurs de notes différentes ou frappe ";" pour 
indiquer plus brièvement une longueur de 1 unité. Le cinquië- 
me champ permet de contrôler l'amplitude du signal. Le choix 
est donné entre 9 amplitudes différentes, plus une option par 
défaut : le ";" qui correspond à l'amplitude maximum. 


Le choix est également donné entre deux types d'enveloppes 

Le signal peut présenter une chute assez brusque d'amplitude 
dès que sa durée est écoulée et on l'indique grâce à un ":" 
dans le champ 6. Si l'utilisateur préfère que le signal ait 
une amplitude constante jusqu'à l'apparition de la note sui- 


vante, il faut l'indiquer par un "." dans le champ 6. 


` le ,13 : Instructions de définition d'étiquetteet d'itération 


I, > (E) 11,...,9) 


Défini un numéro d'étiquette. Dans l'ensemble d'un programme 
on a donc droit à 9 étiquettes au plus. 


I, Ա) (1,...,9) 101,...,99) 
1 2 3 


Le premier champ notifie que c'est une instruction d'itéra- 
tion. | 

Le deuxième précise un numéro d'étiquette obligatoirement 
définie par une instruction du type I,. 

Le troisième indique le nombre d'itérations. 


Exemple : E 6 
1D0 #333 


séquence 
d'instructions 
I 603 


Dans ce cas 1'effet de 1'instruction :1 603 , sera de faire 
exécuter 3 fois la séquence d'instructions entre l'étiquette 
6 et elle-même. 
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1, : Instruction de temporisation 
1, = {Т} {01,...,99} 


Si la note précédant une instruction de temporisation avait սո 
"j" dans le champ 6, ou un ".", on peut programmer un silence 
ou une prolongation de la note de 1 á 99 unités de temps.Celle- 


- 


ci peut étre fixée en modifiant la mémoire á partir du pupitre. 
I, -: Contrôle de la fréquence du filtre 


I > (W) {-9,...,-1,1,...,9} 


Cette instruction permet de modifier la position de la bande 
passante du filtre dans le spectre par incrëment de 1 pour des 
valeurs allant de -9 à.+9. La tension initiale de contróle est 
fixée à une valeur médiane : 7F. On peut en 00151۴ une 6 
en modifiant la mémoire FFE. - | ብ 


1. : Instruction de fin 


I > (F) 


6 


Elle termine puis lance 1'exécution d'un programme. Quand l'in- 
terpréte exécute cette instruction il rend la main au moniteur, 


Les instructions suivantes sont en cours d'implémentation. 


I, : Instruction de sölection 
1, = (S) (1,2) 


Les mëlodies programmées aprës cette instruction sortent sur le 
VCO. Sélectionner jusqu'à la prochaine instruction de sélection. 


I, : Appel d'un sous-programme, retour d'un sous-programme 

I = {CAL} (n) | | 

п est ипе étiquette. 

Cette instruction effectue un branchement à l'instruction sui- 
vant la définition de l'étiquette n. 

I, > ARET) | 


effectue un branchement à l'instruction suivant la derniere 
instruction CAL effectuée. | 
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Ты : Instruction de saut 
Io = {J} {n} | 
ո étant une étiquette. 


Effectue un saut inconditionnel ձ 1'instruction suivant la défi- 
nition de l'étiquette n. 


L'interprète détecte quelques erreurs de syntaxe. I1 les signale 
en faisant un HALT. qui empêche 1'entrée de nouvelles instructions. 
On peut repartir en appuyant sur la touche RESET du pupitre et 
continuer le programme à partir de l'instruction ayant provoqué 
l'arrêt de la machine. | E 


Un programme peut comporter au maximum 256 instructions dans les- 
quelles il ne faut pas compter les instructions de définition 
d'étiquettes qui sont plutôt des directives à l'interprète. 


Sauvegarde d'un programme 


On peut sauvegarder un programme après son exécution. ` 


51 le programme a ո instructions, il faut sauver sur ruban les 


mémoires 
1100 + 1100 + n-1 
1200 + 1200 + n-1 
1300 + 1300 + n-1 
1700 + 1700 + n-1 
1800 + 1800 + n-1 
1900 + 1900 + n-1 


Accord du synthétiseur 


11 suffit d'écrire un programme qui sort deux notes séparées par 
un intervalle d'une octave et agir conjointement sur le VCO? et 
le gain en sortie du convertisseur jusqu'á obtenir le son et 
l'intervalle désiré. 


Réglage du filtre 


L'effet des incréments de tension sortis par le calculateur dépend 
des réglages initiaux, du gain en sortie du convertisseur, de la 
position des boutons "RESPONSE" et "FREQUENCY" situés sur le ta- 
bleau du synthétiseur. | 

Le bouton "LEVEL" du canal utilisé doit être à la position 0 et 
le potentiomètre du convertisseur 1 au maximum. 


- 4 - 
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0900 LLI 
0902 RET 
0903 111 
0905 RET 
0906 LLI 
0908 RET 
9909 ເເ! 
0905 RET 
0900 LLI 
090ເ АЕТ 
0908 LLI 
9911 ٢ 
0912 CPI 
0914 3፲፲ 
0917 CPI 
0919 117 
0916 CPI 
0916 JTZ 
9921 CPI 
0923 111 
0926 CPI 
0928 111 
0928 CPI 
0920 711 
0930 8 
0931 JFI 
0936 LAC 
0935 ADI 
0937 LCA 
0938 CPE 
0939 JF2 
093 ع‎ JKP 


0940 LHI 
0942 ԼԼ1 
094“ LMI 
0946 INL 
0967 181 
094A LHI 
094C LLI 
094€ Լյ 
0950 INL 
0951 JFZ 
0954 CAL 
0957 JMP 
095A JMP 


ОЕ 
1А 


PROGRAMME 
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0950 
995€ 
095ເ 
0960 
0961 
0962 
0963 
0964 
0965 
0967 
096A 
0968 
096C 
096€ 
096F 
0971 
2972 
0973 


0976 


0979 
0970 
097€ 
0980 
0982 
0983 
0985 
0988 
0988 
098E 
098F 
0991 
0993 
0996 
0998 
0999 
0998 
099C 
099€ 
099F 
0940 
0942 
0944 
0945 
0948 
9949 
0940 
NARE 


ຽປ] 
412 
OUT 
LCA 
LA! 
ут 
LAI 
BUT 
LAC 
JMP 
CAL 
CAL 
NO} 
LHI 
LLI 
LLM 
CPI 


“820 
CAL 


ЧАР 
DCL 
LHI 
LMT 
ЧАР 
LH] 
LAM 
LH] 
LBL 
LLI 


LRA - 


LLB 
CPI 
LHI 
LAM 
112 
48» 
LH} 
LBL 
LL1 


0930 
0981 
0303 
0984 
0987 
0989 
0986 
0982 
098፤ 
pecs 
0903 
` 9905 
` 0906 
0907 
وو‎ 
Dach 
09C 
09ເບ 
9909 
0902 
0905 
09097 
0909 
09DA 
090ເ 
09D€ 
090ເ 
0962 
095 
09E6 
0968 
09EB 
O9ED 
OSEF 
99F0 
09F2 
09F4 
09F5 
09F6 
Dart 
OOF RK 
OSFD 
O9FE 
09FF 
0400 
0801 
0802 
0403 
040 
0405 
0806 
0498 
0808 
DADD 
0819 
0813 
0815 
0816 
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CPI 
417 
CPs 
411 
JP 
NOE 
LBA 
sus 


3007 
0954 


03 
1600 
05 
0A1B 
0٩54 
OF 


6 


0417 
0419 

0816 

DALE 

DALE 

DAIF 
9A21 

0423 
0824 
0825 
0826 
0827 
0824 
DAZA 
0420 
0820 
042€ 
OA2F 
0832 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0838 
0838 
083Ը 
0830 
DAZE 
DAZE 
0861 
0853 
0445 
0866 
0160 
0849 
0448 
0440 
DAGF 
0851 
045% 


- 0856. 


د 


` DASA 


DASC 
ዐለ5ዩ 
ዐለኔ፤ 
DA62 
DAGS 
0166 
0867 
DASS 
9159 
ASA 
0868 
DA6D 


SUB 
ງາດ 
LEL 
LHI 
LAN 
LH} 
t11 
LBM 
ADB 
LMA 
LLE 
DUT 
LAI 
DUT 
LAI 
OUT 
INL 
JAP 


LH} 
(11 
LAI 
PRL 
а 
TRL 
LMI 
LHI 
LLI 
[0551 
JRP 
LHI 
LLI 
LRI 
Lil 
LM] 
48%» 
LBM 
LH1 
LA) 
ADB 
LLA 
LBM 
IRB 
LAB 
CPI 
JFZ 


O9ED 
13 


OF 
FE 


08 
20 
09 
00 
09 


1۴ 


0ເ 
1638 


9470 
0471 
OATS 
OATS 
0878 
0879 


1420 
1422 
1624 
1426 
1429 
1624 
142€ 
152" 
1430 
1432 
1635 
1437 
1439 
1438 
143€ 
143 
5557 
1463 
1444 
1446 
1448 
1468 
1440 
1450 
1452 
1455 
1457 
1454 
145Ը 
145 ۴ 
1451 
1464 
1405 
1667 
1469 
3468 
166€ 
145€ 
146F 
1472 


1475 


1476 
1471 
1479 
EGTA 
1470 
(EA: 
IARI 
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LEL 
CAL 
LLE 
JAP 


LL) 
LNMI 
LM] 
CAL 
LAH 
CPE 
JFZ 
LAL 
CPE 
JFZ 
LHF 
11.1 
LAE 
TRL 
JFZ 
ФИР 


NOE 
CPI 
JTC 
CPF 
JTC 
CPE 
STZ 
CP} 
JTZ 
CPE 
11 
CPI 
414 
RL f 
NDE 
111 
LRE 
LLK 
LH} 
LMA 
CAL 
JP 


LLM 
LRE 
CPM 
JT 
LLI 
Lui 
LAN 


3F44 


0413 


7 


1482 
1484 
1685 
1487 
1684 
14585 
1480 
148F 
1490 
1492 
1493 
1496 
1499 
1494 
1498 
1490 
149F 
24A0 
1441 
14۸4 
1445 


` ` 1647 


DT 
1445 
፤ላጳር 
1GAE 
14B0 
14B2 
1453 
1436 


1486. 


1484 
188 
1480 
148€ 
1400 
1402 
1403 


1606 


1408 
1٨ 
ኔላርር 
14CE 
1401 


1604. 


1405 
1406 
1407 
1405 
1509 
14DA 
1408 
160 
2460F 
IGE} 
14:2 
14E3 


ADI 
LMA 
CPI 
JFZ 
HLT 
011 
LH) 
LAN 
AO? 
LMA 
CAL 
էԼ) 
LHF 
LLM 
LHI 
ND? 
LCA 
CPM 
JIZ 
LAL 
CPI 
472 
LAA 
HLT 
LLI 
LHI 
LMI 
LAC 


-JMP 


LLI 
LH} 
LAM 
SUF 
RRC 
LAE 
LLE 
LA 
CAL 
1011 
LH} 
ዘ01 


CPI 


JFZ 
JMP 


LBN 
ЧАР 
Lui 
LAM 
LEL 
CAL 


1634 
11 


0912 


1456 
L&E? 
14E6 
GEA 
14E8 
14E0 
16F0 
14F3 
14F2 
14F3 
14F6 
14Է5 
14F6 
14F7 
1688 
1489 
14FA 
14FC 
14FE 
14FF 
1591 
1502 
1505 
1537 
1509 
150€ 
150€ 
1511 
1513 
1515 
1518 
1514 
1510 
151€ 
1529 
1522 
1526 
1525 
1526 
1527 
1528 
1529 
1524 
1520 
152F 
1531 
1533 
1534 
1536 
1536 
1539 
1538 
153€ 
1530 
153€ 
1534 
1561 


LOL 
LLE 
LMI 
LLD 
LHI 
JP 


01 


10 
14F6 


1663 
OF . 
1€ 
14 


00 
14 


13 


09 
14 


1543 
1544 
1545 
1566 
1547 
1549 
254C 
1540 
1550 
1553 
1555 
1558 
1554 
1550 
155E 
1560 
1562 
1563 
1565 
1566 
1567 
1568 

1568 
156E 

1571 

1574 

1577 
1579 
1578 

157€ 

157F 


15851 
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1584 
1585 
1587 
1588 
1589 
1598 
158C 
158€ 
158F 
1591 
1593 
1595 
1596 
1539 
159€ 
159€ 
1541 

1583 
1544 
1546 

1545 
1548 

ISAE 

1580 

1582 


LBM 
ENB 
LMB 
LAB 
CPI 
JMP 


CAL 
CAL 
CAL 
ND] 
CPI 
JFC 
417 
LLE 
LHI 
LBM 
LES 
AOL 
LLA 
LMB 
CAL 
ЧИР 
CAL 
CAL 
CAL 
NDI 
CPI 
JFC 
HLT 
CPE 
JTC 
ALT 
LLI 
ADL 
LLA 
LHI 
LBM 
LLI 
LLN 
LH} 
LMI 
LHF 
LMB 
JAP 
CAL 
CAL 
LHI 
LLI 
LLM 
LHI 
LMF 
АР 
CAL 
LHI 
LLI 
LLM 


1553 
1585 
1587 
1589 
1588 
1580 
156Է 
1501 
1582 
1506 
1507 
1509 
15CC 
፤5ርዩ 
1500 
1501 
150? 
1504 
1505 
1507 
1598 
~ 15DA 
1500 
15DE 
15E} 
15€2 
15E5 
15E6 
15E9 
15EC 
15E0 
15F0 
15F2 
15F3 
15F5 
15FT 
1589 
18 
B5FD 
15FE 
1631 
1692 
1605 
1605 
1609 
16094 
3600 
169F 
1610 
1611 
16512 
161% 
1515 
1617 
161A 
1618 
1610 
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LHI 
LMI 
LHE 
LLI 
141 
Lt? 
LHI 
LAN 
CPI 
JTZ 
CPI 
311 
JMP 


LHI 
LAM 
LHI 
LON 
LCI 
JMP 
INB 
352 
DCC 
JFZ 
DCD 
JF1 
JMP 
INL 
JMP 
081 


LEM 


LDI 
LCI 
051 
INB 
jF2 
DCC 
JFZ 
DCO 
າເ 
BCE 
#1 
INL 
ДИР 
LH} 
LBM 
INB 
LAB 
LHF 
CPH 
LH} 
417 
LMA 
LHI 
LLA 


168A ` 


168€ 


1684 


1508 
095A 


15BF 
13 - 


01 
01 
35፤9 
15F7 
15F5 
15F3 


1588 
17 


13 


17 
1621 


12 


օք 8 


161€ 
1621 
1623 
1624 
1625 


` 1628 


1629 
1628 
1620 
1630 
1631 
1636 
1636 
1638 
1639 
1634 
1638 
1630 
163F 
1640 
1643 
1644 
1667 
1654 
1648 
164C 
1660 
164€ 
1651 
1653 
1655 
1656 
1659 
1658 
165€ 
1660 
1663 
1665 
1668 
1668 
166€ 
1670 


1671 


1673 
1675 


. 1676 


1677 
1679 
1674 
1670 
167E 


167: 


1680 
1681 
1682 
1683 


JMP 
LAI 
LMA 
INL 
JMP 
LBA 
LHI 
LLI 
JAP 
LAB 
#ዛዞ 
LN? 
LAI 
ADB 
LLA 
LBM 
LHF 
LL} 
LLM 
JMP 
LMA 
CAL 
JMP 


CAL 
LHI 
LLI 
LBM 
CAL 
LLI 
CAL 
LLI 
CAL 
LLI 
CAL 
CAL 
JAP 
Lui 
LEM 
LAI 

081 

OUT 
LCA 


ړا . 


ປປ] 
າາ? 


¿686 

1585 

168% 

1687 

1688 

3585 i 
1684 Լ81 3F 7 
168€ LEA ` 
1689 ኒጳ፤ 00 
168 JUT 09 
1590 LAF 

1591 JUF 8 
1692 1А} 10 
1694 OUT 09 ` 
1695 LAT 00. 
1697 QUT 09 
1698 LAE ٠۰ 
1699 JMP 1500 
169€ LHI ig: 


2698 ኒኒ፤ NO: Gë 
1689 LLN ن8‎ 
OAR DCL 

1682 LHE 11: 

16۸ (۸ LAM 


1645 CPE 01 a 
EGAY JTZ 1660 
1688 JMP 8 
1610 © 

15ДЕ 

ISAF db 
1689 CAL 38 ` 
1683 CAL 3F44 
1686 CPE 36 $ 
1688 JTZ 0976 
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1588 
15680 
188 
186120 
1801 
1403 
3605 
LSC? 
ኔዬርጻ 
፪5ር8 
21600 
35395 


1601 


1602 
دوم‎ 
1605 
1608 
31604 
{SDP 
pone 


16£1 


ibt? 
1663 
ኔኔ፻ዓ 


16585 


AGES 
16€7 
46E8 
16E9 


ROEM 


16ED 
16F0 


“ແມ чөл գոթ, ووو‎ 


CAL 
JMP 


3F44 
0900 


АСТЕ DE NAISSANCE DE SUCELLUS 


JEAN-FRANCOIS DEGREMONT 


ARTINFO/MusiNFO #28 
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Début de conception : Juin 1977 


Début de construction (1ère version) : novembre 1977 
(2ème version) : 15 janvier 1978 


Objectifs recherchés 


ል suppléer au manque de terminaux spécialisés pour des 
applications pratiques de l'enseignement en Intelli- 
gence Artificielle à Paris 8 


A tenter de résoudre par des solutions inhabituelles de 
quelques problèmes sensori-moteurs en robotique 


ል élargir les activités du Département (Art et Infor- 
matique, Musique et Informatique, etc.) 


Les moyens informatiques du Département sont : սո 11600, 

un terminal PDP10, plusieurs microprocesseurs, un gros 

stock de pièces détachées d'origines diverses (CAB 500, 

Gamma 30,...) 

Ceci a permis une construction à très bas prix (de l'ordre 

SE 500Frs tout compris) en vue d'une connexion sur սո Zi- 
og 80. | i 


La réalisation de ce terminal fait actuellement appel aux 
restes de : 

+ dérouleur de bandes magnétiques Gamma 30 
photocopieuse | 
bicyclette 


— 


moteur d'essuie-glace 

pompe á vide 

lecteur de rubans perforés Gamma 30 
machine á laver 

tambour magnétique de CAB 500 
iverses tóleries 


ຈ + + ቆ ቀ + + + 
D. = نم‎ ка m ыз 


Son hardware est de conception simple et solide. 


Son software est extrémement développé et développable. 
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I - LA MÉCANIQUE 


Principe 


articulation 
élément de bras 


pince 
Déplacements 
a) autour de l'axe 4 
A 
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Ե) chaque élément peut tourner autour de l'axe ալ par 
rapport à l'élément précédent. L'ensemble des 616- 
ments se déplace donc dans un même plan. 


Analogie 


18 pelle mécanique 


L'idée de base 
;— un cable 


. 
æ <. 
. 


-1+ — des mécanismes de blocage du cable 


Q 


„ш 
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Mouvement 


; Т. 
élément 1°{ ابا نا‎ 
" MO = 
" 31] 
ከ x ալ + 
repos 
a b Շ ն e f 


si on tire sur le cáble (b), 1'élément 4 tourne autour de ພ, - 
Lorsque la position désirée est atteinte, blocage (ເ). Si օո 
continue à tirer sur le câble, c'est alors l'élément 3 qui 
tourne autour de ա. (d). On positionne ainsi successivement 
tous les éléments (e). Cependant qu'une rotation autour de A 
(f) permet de couvrir l'espace. 


On voit tout de suite apparaître le premier inconvénient de ce 
principe : lorsqu'on a commencé à chercher une position, 1 
n'est plus possible de changer sans repasser par l'état de re- 
pos. Plus exactement si on veut changer la position d'un 616- 
ment du bras, tous les éléments précédents doivent revenir au 
repos. Sur le prochain modèle, ce problème sera résolu. 


Avantages de ce principe 


* chaque point peut être atteint de différentes façons 
effet tentaculaire 


* grande rigidité (limitée par l'élasticité du câble de 
traction) 


> moins d'oscillations lors des variations de vitesse ou 
des approches lentes 


* puissance limitée par la résistance du câble et par les 
blocages de segments. ce problème est mécaniquement simple 


* pas d'élément moteur dans le bras qui peut sans danger 
être soumis à des conditions de travail sévères 


* possibilités de construction légère du bras 
= accroissement de la charge utile 


* bonne précision, assez simple à obtenir par contrôle des 
points de blocage du câble. 
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Elément blocant 


Le cáble fait une boucle dans une poulie á gorge tournant 
librement sur l'axe 3. Cette poulie est solidaire d'une 
roue dentée légèrement plus grande. Un couteau basculant 
par électro-aimant peut venir se loger entre deux dents et 
ainsi bloquer la rotation de l'ensemble. ሀክ couple - frein 
très important (blocage) est donc appliqué au câble. 


Analogie : m 


poids 

11 - L'ÉLECTRONIQUE 

a) Le moteur treuil 

= 1 commande de marche-arrét, d'embrayage et d'inver- 

sion de sens de rotation. L'ordre est capté directement 

sur une des sorties de 1'Intel 8080 et commande un 
relais (triac) après amplification. 


m 1 photo-transistor qui envoie un pulse chaque fois 
qu'une dent passe devant lui : c'est une roue dentée 


e E 2 
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identique á celles montées sur le bras mais située en 
sortie du treuil. Ces pulses sont envoyés sur une en- 
trée de 1'Intel 8080 et permettent de contróler indé- 
pendamment des á-coups moteurs la longueur de cable 
déroulée (cela permet d'éviter les problèmes de côut 
et de puissance posés par les moteurs pas-ä-pas). 


b) Le moteur de rotation 


C'est un moteur muni d'un frein sur le rotor. IT est 
très démultiplié. En contrôlant les durées d'alimen- 

tation, on contrôle l'angle de rotation dont il est 
possible d'inverser le sens. 


c) Electro-aimants 


Une commande de blocage pour chaque élément de bras. 
Un relais transistorisé actionne, aprés amplification, 
un électro-aimant. Une commande de serrage de la pince 
agit de la méme facon. 


d) Des senseurs tactiles et de proximité 


ա les senseurs tactiles sont des micro-interrupteurs en 
bout de pince. 


m les senseurs de proximité sont 
o une cellule photo-électrique qui prévient lorsqu'un 
objet se trouve entre les deux branches de la pince 


o un circuit oscillant en limite de rupture,par capa- 
cité variable) prévient de l'approche d'un objet 
du bout de la pince. 

տ de nombreux autres capteurs ("moustaches", sonar,...) 
sont à l'étude et seront installés sur de prochaines 
versions de la pince. 

e) Des alarmes diverses 


Ce sont des micro-interrupteurs. 
Toute la logique d'alarme est faite par software. 


- 6 - 
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III - LE SOFTWARE 


a) Le software de base 


Sur le Zilog 80 11 y a une horloge et un système d'entrées/ 
sorties programmables. Ceci permet 


m de déclencher un événement extérieur (i.e. la mise en 
marche d'un moteur) dont la durée est contrôlée et arré- 
tee par սո interrupt de l'horloge 

ສ de ne pas explorer constamment les bits d'alarme. Les 
entrées masquables déclenchent un interrupt si nécessai- 
re, ce qui provoque l'appel d'une routine d'intervention 
d'urgence ou 1'incrémentation du compteur de dents. 


Un temps maximum peut ainsi étre consacré aux calculs divers. 


b) Le software évolué 


= calcul automatique de trajectoires en modulant en fonc- 
tion des obstacles 


ສ tentative d'approximation dans la préhension d'un objet 


" recherche d'objets mouvants sur une table lumineuse 


Ces fonctions seront écrites en LISP ; ce langage ayant été 
implanté dernièrement par Jérôme CHAILLOUX sur des Zilog 80. 


I... 


votre publicité 


était dans ce journal 


elle ferait 
mouche 
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IMPOSSIBLE CRISTAL 


SEI 
داد‎ ՎՍ 


Է 


ARTINFO/MUSI 
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IMPOSSIBLE CRISTAL 


ANNA 
د د لا د لا لا‎ 


NNNNNN 


FO/MUSINFO 8 
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Voici une version LSE du programme qui fait tracer le dessin 
illusoire bien connu inspiré par M.C. Escher. 


Le motif de base : 3 traits horizontaux (h shasha), 3 traits 
verticaux (Vy. Vos Va) 3 traits obliques (010203 . a donne 


3 


Le pas élémentaire de la tracante et les 8 directions 0...7. 
8 et 9 sont réservées aux lever et baisser de plume. 


Un pas oblique : un pas droit x Y 
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JEH 02/02/75 TELEMECANIQUE ELECTRIQUE 1 10 


1 ረ ሂ ጅጁ ጅጅ JE E E E ጅ ጁ ጃጁ DE ጭ ንጅ ቴር E ገጽ ንድ ንጽ ແ E JE E JE E EE EE ጃጂ 3£ W: YE E % عا‎ ሙዙ ቴ፡-ጭ E کن خد‎ ንፍ W. C ጎዜ ጎር ን ንሩ کد ځا‎ ແ ໄ ጋዬ ንራ ንሩ ງາເ ጭ E -ጄ ን 
ኃ ເ 
3 "ës IMPOSSIBLE CRISTAL 
4 (4 
= ፈፈ DE E E DE E X: ንጅ ጎር ጎጄ % ЭЕ ጎር E DE DE HE ጎድ DE ድ DE Э ጎቡ ЭЕ 36 W: W: ጎዜ ንሺ ЭЕ JE ን E ጎር 4 IE ንር M. E ሳዮ ጋዜ ነር Эё ጎር DE JE ЭЁ ЭС ገራ JE W DE E E E ጎድ DEAR ነ ቴር NEN ነራ ጎር ጎር ЭЕ IE 
D 
? MAIN PROCEDURE DESSIN 
Ց 
9 «COMMON SECTION COM 
10 REF PROCEDURE FASELNI O. | 
11 WORD Is Jo Nr Ar ARS + OFS ልዮ» ۵۵٨ (1 
12 WORE! 1 
13 ARRAY 10 BYTE ፐበል፡፡ ‹*8ኽ "ຕ່ລ," QUEL A? “ነ ፤ 
44 LPEILE ԱԲ» (MODE 2 OUTFUT «EMS EU: TS HATA? TOAFEOE 3 103 CONTROL) 3 
“tS ARRAY 10 BYTE TON= (ӘП, "OA." QUEL NO ٤٥ 
= 18 LEFILE Վ» (MODE sQUTPUT + EMSEUSTSIDATAS TONSEDE 3 103 CONTROL) $ 
پو‎ | ! 15121 
48 .KSTORE SECTION FILE 
19 | RES 505 
20 
24 ¿LOCAL SECTION LOC մեն ԱՌ. 
22 . - RES 15 | 
23 ረረ 
24 “X e E E E Ê E E E E EEE DE ዓት DE ንሺ ዝጽ ርቀን IE IE ጎዜ ጎድ ንር DE ን E E FE JE JE ን ЭЕ E ЭЕ ЭЁ ር ЭЁ ЭЁ ጎሩ ЭЕ ЭЁ ЗЕ ЭЕ ЭЕ ተር ጎይ ጎድን) ን ተ ጎሩ DE ጎፋ DE ጎ ድ D DE ጎድ € 
25 ረረ 
26 
27 PROCEDURE LEC CIION) >- | 
28 LOCAL SECTION CONTINUE LOC 
29 FOINTER WORT! 5 
30 EYTE МАЎ 
31 LPFILE LENA= (MOLE? INFUT+EMPEUS TKITATA2NAJEOE t t S CONTROL) 3 
32 „USING LOCAL IS LOC COMMON IS COM? 
33 REAL LENA 
34 ADONt= NA AND "E 
35 ENTF (¿IE LEC. 
36 (ໄ | 
37 ረ ረ Fk E 3С ጎድ ጎድ ንጅ JE پر‎ JE غد‎ ገዙ ንር یز دیز‎ W: NENNE ጭ MEME ጎር ጎር D J Ê Ê ጎር ነጹ E ጎር ጎድ E ጎቡ DAME ባሩ ЭЁ E ጎር € E E E ЗЕ E ЭЕ € E 3E E ጎቡ E ጎሩ 
38 «٢ 
39 PROCEDURE FLUME 
41 «USING LOCAL 15 LOC» COMMON IS COM? 
. .ຊັ ፳ጂ5= ኮጅል8፤ RAt= 1 
43 CALL FASELNS . 
44 END ເເດ PLUME 
45 (¢ | 
ዱሬ ረ ረ э ጭ ንዛ ዓድ ንድ مدعد‎ TELL SEE LE LL EE EE LE ንፍ E ጎድ ጎብ بد‎ ጎች JF ንቡ 36 ንፋ ጎሮ ጎሹ E 36 ጎፋ ጎሩ N ንቶ ጎፍ ጎሩ بد‎ ጎሩ ጎሩ ጎኖ X ጎኖ ጋዙ ን E እዮ E پد‎ DE ንፁ ጎሩ ېد‎ ጎዴ ጎሩ ጎሩ د‎ 
42 ረፈ 
48 PROCEDURE FENUF 
49 
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SO ` „USING COMMON IS COM LOCAL IS LOC? 


51 Fx 3 ະ ; s БА= 8 3 CALL ت7‎ 
=< END? ເເ DE FENUF 

EA ເເ | | 

54 < < DE ENE E JEG ME E JE JE We DE JE E E E JE ME E E IE E E JE IE JE E D JA E E IA PE IE IE A E IE IE JE IE I JE DE IE IE IE IE IE IE PE DE IE ME ERE E N VE 
ss «« 

36 | FROTELURE FENDOWN 

ره یې 

58 : «USING COMMON IS CUM LOCAL 13 LOCS 
“© RXi= 1 $ RAs= 7; CALL FASELN+ 
60 END: << TE PENDOMM 

51 «« 

f 62 ٢ DE ጎድ RENE ጎር E E E ድ ጎሩ JE ЭЕ ጎሩ ጎር ጎሩ DE ጎ DE DE DE CCC DE 3 DE DE EE ንር E ንፁ ЗЕ DE ጎቡ DE ЭЕ ЭЕ DE DE DE ЭЕ DE XXX E DE ጎር ጎዜ 36 ЭЕ 3ዜ JE E 3E E ንጹ ጅሩ 
63 «« i 
54 FROCETIURE NOE 1311 OLR, IRS) 

65 
ይይ «LOCAL. SECTION CONTINUE LOC 
97 WORT! GIRI DIREZ DIRES 
63 : 
57 „USING LOCAL IS LOC, COMMON IS COM? 
20 
7 DO FOR I:=1 STEF +1 UNTIL N$ 
72 ፈረ | 
27 ¿< LIGNE CONTINUE 
74 «« | 
75 አሎል5፡= AFNIOS 
26 11177 
7 CALL 1 5 
71 CALL FLUME 7 
29 ረረ 
go «« RETOUR 
31 «« 
. 82 CALL FENUES 

83 ሀ፲ኮ= 7 
84 CALL. FLUME? 
as ረረ 
36 ເເ SE DECALER VERS LA LROIÎTE 
87 ረረ 
55 ` 111182 DIRES 
89 NFASi= ል» 
ፍዕ CALL PLUME > 
$1 © ፈና 
ээ .. £4 1 ERE LIGNE BRISEE 
73 ረረ 
74 DIRš3= 172 
75 ըը FOR Je= 1 STEF +1 UNTIL አሃ 
مو‎ NFAS:= APIS 
97 CALL FLUME > 
29 CALL 024 $ 
79 NFAS:= ون حم‎ 

100 CALL FLUME ? 

101 CALL ت7‎ 

102 CNDS 

103 ረረ 

:104 «« RETOUR 

105 «« 

104 DIRi= ۹81 

102 NFASi= 1711 

108 CALL FLUMES 

109 «« 

119 << SE DECALER VERS LA 1۳18 

111 ረረ 
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112 DikRis 7 


"112 Moss APSF 

114 CALL FLUME 3 

115 «« 
pte €<.. 2 EME LIGNE BRISEE 

ວຫ ° ረረ 

His ' LIR:= QIRI? 

119 ' to FOR Js= 1 STEF +1 UNTIL 8 
- 120 NFAS:= Բ: | 
552424 CALL PLUME? 

122 CALL FENIOUN 5 

123 NFAS:= AFG? 

-424 СА. PLUME? 

125 CALL 1 

126 NFAS:= AF 

127 CALL. FLUMES 
7428 END? 

129 «« 

FEO ` «« RETOUR 

151 «« 

132 NFAS3i= AFNIOS 

‘133 DIR:= 7 
mo 434 CALL. FLUMES 

“1135 ሂር 

136 << DECALER VERS LA EROITE 

137 ረና - 
"4392 ` ոլր: DIRS 
= :140 - CALL FLUME 5 
~~ 442 END? 
` 143 | 

144. ፈና . i 

145 «« DERNIER GRAND TRAIT 

-146 ረፈ 

147 CALL FENIOUN ¥ 

148 NFAS:= AFN1IO3 

149 UIRS= 7 
- $50 CALL FLUMES 

151 

- 452 ENT ເເ LE NOK. 

153 (¢ 

154 | ረፈ ж ቴር DE E E DE DE ቴጅ ችጄ ንር ጎድ DE DE ጎድ ንዙ ጎጽ ቱር DE ንድ ቴር ድ ጎር ን DE ЭЁ E ЭЕ ЭЕ ንድ Ê ጎሼ DE DE ጎሩ DE ጎች ጎፍ ቱኖ ጎቶ DE ቱር ጎች ЭЕ ድ DE DO ጎሩ ቱና ጎቋ ЭЕ ጎዛ ቀና ጎዛ ቀና DE ጎቶ ፡ 

155 «« 

156 . PROCEDURE OR CRINF  RSUF' » FAS) 

157 

158 : „LOCAL SECTION CONTINUE LOC 

159 WORD ጅ፲ኮዩ » BSUF FASS 

160 

EM „USING LOCAL IS LOC: COMMON 15 СЫМ? 

162 

163 سو‎ RINF-FAST 

164 DOF ፲5= 71 

165 IF (PASO) THEN IF CICHRSUF) THEN EXIT ОВ? ENDS 15 

1466 IF (FASO) THEN IF ‹፲ ነጀዌህዮነ THEN EXIT Օր) ENDS ENIS 

167 

- 168 «« 

169 بي‎ AVANCER SUR LE COTE 

170 «« I 

171 CALL 71 

22 IF <PAS>O) THEN 


173 DIRiæ 25 
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174 ከፍል55= 4795 


125 CALL PLUMES 
- 426 ELSE 
ge وو‎ IITRas= OF 
428 NFAS:= تد‎ 
179 CALL PLUMES 
. 1380 ሀ፲፳5= 43 
= 151 NFAG:= AF 
` 182 CALL PLUME? 
183 ЕМИ 
184 
18% ‹‹ 
186 ¿< 1 ERE LIGNE BRISEE 
187 «« 
188 DIR:= 75 
18° 
190 DO FOR Jis 1 STEP +1 UNTIL 
191 CALL 45 
192 NFAS pb? 
193 CALL FLUMES 
194 CALL 0612 
195 አዮልኗ፥= AF23 
196 CALL PLUMES 
197 ENI 
198 
199 «٢ 
200 ‹‹ RETOUR 
e A E : . 
202 NFASi=I*AF103 
203 DIRi= 37 
204 CALL PLUMES 
208 ເໃ 
206 ‹‹ SE DECALER D'UN CRAN 
207 (ເ 
208 ուք :» 25 
209 NEASI=AF 
210 CALL PLUMES 
211 ረረ 
212 ¿< LIGNE CONTINUE 
213 ረፈ 
244 CALL 1 $ 
215 NAS f= IAF 10$ 
216 . ህ፲ጾ፤= 2: 
217 CALL PLUMES 
218 < < 
219 ເເ RETOUR 
220 ረረ 
224 CALL 1 
222 ፲፲፳5= 33 
223 CALL PLUME? 
224 ‹‹ 
225 ເເ DECALER 
226 «< 
227 ሀ፲፳5= 25 
-228 አልፍ ፡ =ል፤ 
229 CALL PLUMES 
- 230 ‹‹ | 
231 ረረ 3IEME LIGNE BRISEE 
` 232: ເເ 
733 DIRs= 75 
. 234 
` 235 ըը FOR J=} STEP +1 UNTIL I3 
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"າ 
ча 


አከኮልዌ፤= AF 
CALL PLUMES 
CALL FENICIUN > 
NEFASIARES 
CALL. PLUME? 
CALL 1 
NFAS:= ልዩ 
CALL PLUME > 


END? 
< < 
ረ KRETOUR 
ኣቂ ; 
DiIRi= 37 
NFASi3=I*AFIOS 
CALL. PLUMES 
ፈሩ ` `: 
¿< REDESCENDRE UN ERIN 


፲፲85= 65 
NFAG:= AF 
CALL PLUMES 


END? 


СЕМ; '- EDE DE 


Հ 


ረረ TI ЭЕ AE ЭЕ DE AE IEN IE E E ЭЕ Ж ME IE IE E ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ቻድ ME DE ЭЕ ንጅ ЭЕ ን ЭЕ ЭЕ JE ЭЕ ЭЕ ጅ ЗЕ ጅ DE ኦድ ቱና 


„USING KSTORE=PILE + LOCALS LOC + COMMON=COMF 


WRITE ԱԲ: 
CALL LEC (GA) 3 
WRITE 1 
CALL LEC (GN) > 


Ase 1045 

biss 25ል፤ 
ልኮዮ85= 8፡ል፣ 
AF932 ویره‎ 
АЁ1б = 10«8:. 
ልኮዘ10፤= AFLORN? 


«« 
¿< LIGNES HORIZONTALES ET VERTICALES. 
ເເ 


CALL NOK (67220) ¥ 
CALL FENUFS 
አሦልጩዩ= AFNIOS 
UIF 3227 

CALL PLUME? 
LTRs =4 ç 

CALL PLUME? 

CALL NOB COrs4 دنت‎ 
CALL 7 
አሎል55= APNIOS 
HER 4 9 

CALL PLUME? 


297 < < 


a 


http://www.artinfo-musinfo.org Artlnfo Musinfo # 28, mars 1978, page 52 / 56 


293 په‎ LIGNES CÉLIQUET, 


299 ረሩ 

300 CALL د)1‎ Ne Los 
‚301. CALL ՈՒՔ MN- 1: 1፡1) $8 
30% 

303 ENT. 

304 FIN 


URGENT 


NE PAS AFFRANCHIR 
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ERRATA 


Marc BATTIER 
ARTINFO/MUSINFO 7 


Page 32, figure 7 : à l'adresse DAC 80 
. correspond le dispositif FILTRE2 


Page 33, figure 9 : il manque un point en A13. 


Page 33, figure 8 : 


Figure 8 
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AVERTISSEMENT 


Le présent bulletin répond á une visée toute didactique : livrer 
sous forme accessible aux nouveaux venus dans 165 groupes de 
travail courants 


- de 1'information technique et bibliographique en rap- 
port avec leurs disciplines 


- des programmes commentés de tous niveaux permettant un 
accés relativement rapide á des techniques de program- 
mation appropriées, ainsi qu'a une implémentation aisée. 


On s'est efforcé, dans la mesure du possible, de ne pas établir 
de clivage trop net entre les disciplines concernées (musique, 
arts plastiques, poésie, architecture, logique, informatique), 
mais tout au contraire de les unifier, ne serait-ce que par des 
techniques de programmation communes. 


. L'aspect pédagogique d'ARTINFO/MUSINFO reflète une préoccupation 
…  Cconstánte du Groupe, à savoir ne pas se satisfaire en dernier 
“ressort de méthodes de programmation trop élémentaires. 


ARTINFO/MUSINFO est imprimé : EMPLACEMENT LIBRE \ 
au Département d'Informati- 
que de l'Université Paris 8 
(Vincennes). Grâces soient. 
rendues aux soins diligents 
de Jacqueline BERTOUT et 
Philippe PINON. 


Pour tous renseignements et 
composition des livraisons 
à venir, s'adresser à : 


Jacques ARVEILLER 
Département d'Informatique 
Université Paris 8 
Route de la Tourelle 
75571 PARIS CEDEX 12 


Pour tout envoi, s'adresser 
à Patrick GREUSSAY , même 
adresse. 
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